home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 181
/
181.d81
/
b.amadeus iii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
124 lines
8 poke56,56:clr:poke53371,0:poke788,49:tq=ti
10 dv=peek(186):ifdv<8thendv=8
20 poke53281,0:poke53280,0:print"[147]":gosub60000
30 sys57812"amadeus mouse2.1",dv,0:poke780,0:poke781,0:poke782,64:sys65493
32 sys57812"amadeus font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
34 sys57812"amadeus sid",dv,0:poke780,0:poke781,0:poke782,192:sys65493
36 sys49615
38 d%(1)=74
40 fori=1to8
42 readf$(i),n$(i)
44 sys57812f$(i),dv,0:poke780,0:poke781,0:poke782,d%(i):sys65493
46 d%(i+1)=peek(175)+1:e(i)=peek(174)+256*peek(175)
48 next
50 data"k110-12mozar.mus","[211]ymphony [206]o.12 [203].110"
51 data"k112-13mozar.mus","[211]ymphony [206]o.13 [203].112"
52 data"k114-14mozar.mus","[211]ymphony [206]o.14 [203].114"
53 data"k120-mozart.mus","[211]ymphony [203].120"
54 data"k124-15mozar.mus","[211]ymphony [206]o.15 [203].124"
55 data"k128-16mozar.mus","[211]ymphony [206]o.16 [203].128"
56 data"k129-17mozar.mus","[211]ymphony [206]o.17 [203].129"
57 data"k130-18mozar.mus","[211]ymphony [206]o.18 [203].130"
64 ml=64*256:mv=ml+156:v=53248
66 pokemv+1,158
68 pokev+21,0:sysml:sysml+6,14*64
70 print"[147]":poke53272,31:sysml+126,0,38,0,24,254,255,14,4
78 sysml+30,3,36,2,9,255,6
80 sysml+30,2,35,1,8,160,3+16
88 print"[153]";
90 sysml+27,2,"[204][207][193][196][211][212][193][210] [208]roudly [208]resents
92 [153]"";
94 [158]ml[170]12,16,3,"(NULL) left$ val"
100 [158]ml[170]12,5,4,"ortan^ or^or^ ortan^ =tan^ ortan^ ^ or ortan^
102 sysml+12,5,5,"[171][192][179] [221][173][189][221] [171][192][179] [221] [221] [171][192] [221] [221] [173][192][174]
104 [158]ml[170]12,5,6,"exp / exp / exp / >tanexp /tanexp /tanexp /tanexp"
110 [158]ml[170]27,7,"(NULL) (NULL) (NULL) (NULL) left$ (NULL) (NULL) right$ val (NULL)
112 sysml+39,160
120 sysml+30,3,26,12,23,255,6
122 sysml+30,2,25,11,22,160,3+16
130 sysml+30,29,36,12,23,255,6
132 sysml+30,28,35,11,22,160,3+16
140 sysml+12,30,12,"[154][208][204][193][217][157][157][157][157][211][207][206][199][157][157][157][157][157][157][159][171][192][192][192][192][192][192][179][154][157][157][157][157][157][157][208][204][193][217][157][157][157][157][193][204][204]"
142 sysml+12,28,17,"[159][171][192][192][192][192][192][192][179][157][157][157][157][157][157][154][211][207][206][199][157][157][157][157][201][206][198][207][157][157][157][157][157][157][159][171][192][192][192][192][192][192][179][157][157][157][157][157][157][154][209][213][201][212]"
150 sysml+15,1,29,34,12,13
152 sysml+15,2,29,34,15,16
154 sysml+15,3,29,34,18,19
156 sysml+15,4,29,34,21,21
160 fori=1to8
162 sysml+12,4,12+i,n$(i)
164 sysml+15,4+i,3,24,12+i,12+i
166 next
200 sysml+9
202 rem print" "rg%;cr%
204 ifrg%thensysml+36,rg%,255,1:sysml+24,2:sysml+36,rg%,255,14
210 ifcr%then230
220 goto200
230 ifcr%=1thengosub300:goto200 rem play
240 ifcr%=2thengosub400:goto200:rem play all
250 ifcr%=3thengosub500:goto200:rem info
260 ifcr%=4thensysml+3:poke49152,0:sys49935:print"[147]":goto40000:rem quit
268 g=cr%
270 sysml+30,2,25,11,22,160,3+16
272 fori=1to8
274 sysml+12,4,12+i,n$(i)
276 next
280 sysml+36,g,255,14+128
290 goto200
300 ifg=0thenreturn
302 p=1:gosub500:p=0
310 poke781,0:poke782,d%(g-4)
320 sys49664:poke49152,7
330 sysml+9
332 ifpeek(49152)=0then350
340 ifl2%=0then330
350 poke49152,0:sys49897
352 sysml+42,168
360 return
400 forg=5to12
410 gosub300
420 next
430 return
500 if(g<1)or(g>12)thenreturn
502 sysml+39,168:sysml+42,160
510 sysml+30,3,36,13,21,255,6
520 sysml+30,2,35,12,20,255,3+16
530 poke214,13:print:printtab(5);
540 rem h=e(g-4)
550 rem fori=htoh-200step-1
560 rem ifpeek(i)=1thens=i:i=h-200
570 rem next
572 s=d%(g-4)*256
574 t=s+peek(s)+peek(s+1)*256+peek(s+2)+peek(s+3)*256+peek(s+4)+peek(s+5)*256+6
580 fori=2to200:ifpeek(i+t)=0theni=200:goto590
582 printchr$(peek(i+t));:ifpeek(i+t)=13thenprint"";
590 next
592 ifpthenreturn
600 sysml+9
610 ifl2%=0then600
620 sysml+42,168
630 return
999 goto999
10000 d=peek(186):n$="0:b.amadeus iii":open15,d,15,"s"+n$:close15:saven$,d:end
40000 poke53269,0
40002 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
40030 forj=8to29:i=peek(820+j):ifi=14thennext
40040 close2:open2,i,2:close2:ifstthen40060
40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
40060 next:return
40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
40090 print"run:":poke631,13:poke632,13:poke198,2:end
60000 print"[147]":z$=" [152] ":poke214,10:print
60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 z$(0)="[212][200][197] [193][205][193][196][197][213][211] [211][217][205][208][200][207][206][201][197][211] [201][201][201]"
60040 z$(2)="by [196]ave [205]arquis
60050 z$(4)[178]"(c) 1999 by mid$ & asc (NULL)ublishing, right$nc."
60060 z$(6)[178]"(NULL)his product is not shareware
60070 z$(7)="or in the public domain."
60080 z$(9)="1-800-594-3370 or 1-318-221-8718
60090 [151]214,12:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
60100 [129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]